home *** CD-ROM | disk | FTP | other *** search
/ The Utilities Experience / The Utilities Experience - Volume 1.iso / software / demos / a-d / amms / mbbatch / com / fastnet_client < prev    next >
Encoding:
Text File  |  1995-08-16  |  6.2 KB  |  223 lines
  1. ;
  2. ;       *********************************************************
  3. ;       *                                                       *
  4. ;       *             NETCALL CALLER-BATCHDATEI                 *
  5. ;       *                                                       *
  6. ;       *********************************************************
  7. ;
  8. ;    Autor : Markus Marquardt & Michael Scheler
  9. ;    $VER: 4.02                Datum : 16.08.1995
  10. ;
  11. ;       Beschreibung :
  12. ;    Diese Batchdatei wird beim Anrufen der Server-Box von der
  13. ;    anrufenden Mailbox ausgefuehrt.
  14. ;    Das Passwort fuer den LOGIN in die andere Box muss im File
  15. ;    MBDAT:NET@BOXNAME.PW stehen, wobei BOXNAME = Name der angerufenden
  16. ;    Box ist.
  17. ;    Die gesendeten und empfangenen Daten werden im Directory
  18. ;    MBMSG:POINT/<Portname>/ temporaer gespeichert.
  19. ;    Stehen im Directory MBNET:EXPORT/ die Dateien <USERNAME>@FA.LHA
  20. ;    und <USERNAME>@FA.MSGNR, so werden nicht die neusten Nachrichten und
  21. ;    Files aktuell exportiert und gepackt, sondern diese vorgepackten
  22. ;    Daten benutzt.
  23. ;
  24. ;       Das Script sollte so eingebunden werden, dass es ueber Level und
  25. ;       Flags auf die folgende Befehle zugreifen kann :
  26. ;
  27. ;    BREAK OFF
  28. ;    CHECK FILE
  29. ;    DISK DOWNLOAD
  30. ;    DISK UPLOAD
  31. ;    ECHO
  32. ;    EXTERN
  33. ;    FASTNET GETFILE
  34. ;    FASTNET MAKEFILE
  35. ;    HANGUP
  36. ;    IF
  37. ;    LOGOUT            <- Option /FAST muss unterstuetzt werden !
  38. ;    ON ERROR
  39. ;    ON HANGUP
  40. ;    WAIT
  41. ;    WAITSTRING
  42. ;
  43. ;    Folgende Amiga-Dos-Befehle werden benutzt :
  44. ;
  45. ;    COPY
  46. ;    DELETE
  47. ;
  48. ;    Einrichtung eines Netcalls fuer eine Netzbox (Node) :
  49. ;    USERNAME : Name der anzurufenen Node
  50. ;    STRASSE  : @NETCALL
  51. ;
  52. ;    Einrichtung eines Netcalls fuer eine Netzbox (Node) des Hauptnetztes,
  53. ;    die aber nicht der eigentliche Server im Hauptnetz ist, sondern nur
  54. ;    fuer das Importieren eines weiteres Unternetzes dient.
  55. ;    USERNAME : Name der anzurufenen Node
  56. ;    STRASSE  : @LOCALNET
  57. ;
  58. ;    Einrichtung eines LocalGates fuer die Einbindung eines anderen
  59. ;    lokalen Netzwerks :
  60. ;    USERNAME : Name der anzurufenen Node
  61. ;    VORNAME  : Gatename im Fastnet
  62. ;    STRASSE  : @LOCALGATE
  63. ;
  64. ;    Einrichtung eines Gates fuer die Einbindung eines anderen 
  65. ;    globalen Netzwerks :
  66. ;    USERNAME : Name der anzurufenen Node
  67. ;    VORNAME  : Gatename im Fastnet
  68. ;    NACHNAME : Gatename im Fremd-Netz
  69. ;    STRASSE  : @GATE
  70. ;
  71. ;       Konstanten :
  72. ;
  73. DEBUG     = "ON"                    ; DEBUG-MODUS AKTIVIEREN
  74. DEBUGDIR = "AMMS:NETDEBUG/"            ; Debug-Directory
  75. IMPORTPORT= "IMPORT"                ; Portname fuer Import
  76. IMPORTDIR= "mbnet:Import/"            ; Import-Directory
  77. TMPDIR   = "mbmsg:point/'{port}'/"        ; Dir fuer Tmp-Files
  78. EXPORTDIR= "mbnet:export/"            ; Export-Directory
  79. NETNAME     = "NET@'{SYSNAME}'"            ; Username im anderen System
  80. MAXKBYT     = 2000                    ; Max. Laenge des Msg-Files
  81. CACHE     = 200                    ; Max. KByte Cache-Ram-Speicher
  82. COPYFILE = "'{NAME}'@FA.lha"            ; Vorgabefile (Pack-Event)
  83. COPYNR     = "'{NAME}'@FA.msgnr"            ; File fuer Msg-Nummern
  84. SENDFILE = "caller.lha"                ; Zu sendendes File
  85. RECFILE     = "called.lha"                ; Empfangenes File
  86. MSGFILE     = "msgs"                ; File fuer Msgs
  87. NRFILE     = "msgnr"                ; File fuer Msg-Nummern
  88. IMPORTFILE= "'IMPORTDIR''{NAME}'@FA'{CALLNR}'.LHA" ; Importfile fuer anderen Port
  89. PACKER     = "lha -IP-1 m ""'TMPDIR''SENDFILE'"" ""'TMPDIR''MSGFILE'"""
  90.                         ; Packen
  91. UNPACKER = "lha -IP-1 x ""'TMPDIR''RECFILE'"" ""'TMPDIR'"" ""'MSGFILE'""" 
  92.                         ; Entpacken
  93. ;
  94. ;    Abbruchtasten sperren / bei Fehler & Abbruch verzweigen
  95. ;
  96.  
  97. _break off                    ; Kein Break erlauben
  98. _on error END_FAIL                ; Label fuer Fehler
  99. _on hangup END_FAIL                ; Label fuer Hangup
  100.  
  101. ;
  102. ;    Optionen fuer Zusatz-Funktionen erzeugen
  103. ;
  104.  
  105.  GETOPT="/Cache='CACHE'"
  106.  MAKOPT=""
  107. _if {STREET} != "@NETCALL" then _goto NONETCALL
  108.  GETOPT="/Cache='CACHE'"
  109.  MAKOPT=""
  110. _goto ENDOFOPT
  111. NONETCALL:
  112. _if {STREET} != "@LOCALGATE" then _goto NOLOCALGATE
  113.  GETOPT="/Filter=%001111100000000000/Type=2/Cache='CACHE'"
  114.  MAKOPT="/Filter=%0111100000000/Type=2"
  115. _goto ENDOFOPT
  116. NOLOCALGATE:
  117. _if {STREET} != "@GATE" then _goto NOGATE
  118.  GETOPT="/Filter=%001111100000000000/Type=1/Cache='CACHE'"
  119.  MAKOPT="/Filter=%0111100000000/Type=1"
  120. _goto ENDOFOPT
  121. NOGATE:
  122. _if {STREET} != "@LOCALNET" then _goto NOLOCALNET
  123.  GETOPT="/Filter=%101111100000000000/Cache='CACHE'"
  124.  MAKOPT="/Filter=%0111100000000"
  125. _goto ENDOFOPT
  126. NOLOCALNET:
  127. ENDOFOPT:
  128.  
  129. ;
  130. ;    Alte TMP-Files loeschen
  131. ;
  132.  
  133. _if TMPDIR != "" then _extern/q delete "'TMPDIR'#?"
  134. _extern/q rename "'TMPDIR''SENDFILE'" "'TMPDIR''SENDFILE''{CALLNR}'"
  135. _extern/q rename "'TMPDIR''RECFILE'" "'TMPDIR''RECFILE''{CALLNR}'"
  136.  
  137. ;
  138. ;    Auf Usernamen/Passwortabfrage warten
  139. ;
  140.  
  141. _echo/raw "^M"
  142. _waitstring "Username:"
  143. _echo/raw "'NETNAME'^M"
  144. _waitstring "Passwort:"
  145. _disk text "mbdat:'{name}'.PW"
  146. _echo/raw "^M"
  147.  
  148. ;
  149. ;    Die neuen Nachrichten fuer die angerufene Box sammeln & packen
  150. ;
  151.  
  152. _check file "'EXPORTDIR''COPYFILE'" EXPORT        ; Existiert Sendefile ?
  153. _extern/q copy "'EXPORTDIR''COPYFILE'" "'TMPDIR''SENDFILE'" ; Ja, vorgepackte
  154. _extern/q copy "'EXPORTDIR''COPYNR'" "'TMPDIR''NRFILE'"     ; Files benutzen
  155. _goto WAIT_UP                    ; -> Warten auf andere Box
  156.  
  157. EXPORT:
  158. _fastnet makefile'MAKOPT' "'TMPDIR''MSGFILE'" 'MAXKBYT' "'TMPDIR''NRFILE'"
  159. _extern/q 'PACKER'
  160.  
  161. ;
  162. ;       Die neuen Nachrichten der angerufenen Box schicken
  163. ;
  164. WAIT_UP:
  165. _waitstring "WAITUP"
  166. _echo/nolf "STARTUP STARTUP STARTUP STARTUP STARTUP"
  167. _disk download "'TMPDIR''SENDFILE'"
  168. _wait 2
  169.  
  170. ;
  171. ;       Nachrichten von angerufener Box empfangen
  172. ;
  173.  
  174. _disk upl "'TMPDIR''RECFILE'"
  175.  
  176. ;
  177. ;       Auflegen nach 3 Sek.
  178. ;
  179.  
  180. _on hangup/ignore                                ; Auflegen ignorieren
  181. _wait 3
  182. _hangup
  183.  
  184. ;
  185. ;    Gezogene Msgs als gelesen kennzeichnen
  186. ;
  187.  
  188. _fastnet makefile/setnr "'TMPDIR''NRFILE'"
  189.  
  190. ;
  191. ;    Wenn Debug-Modus aktiv, empfangenes Pointfile retten
  192. ;
  193.  
  194. _if DEBUG == "ON" then _extern/q copy "'TMPDIR''RECFILE'" "'DEBUGDIR''{NAME}''{CALLNR}'.LHA"
  195.  
  196. ;
  197. ;    Wenn Port IMPORT existiert, Import-Event starten
  198. ;
  199.  
  200. _check port "'IMPORTPORT'" IMPORT        ; Wenn kein Port, verzw.
  201. _extern/q copy "'TMPDIR''RECFILE'" "'IMPORTFILE'"
  202. _add event/Background "'IMPORTPORT'" 0 3 mbbatch:fastnet_import "'{NAME}'"
  203. _goto END                    ; -> Ende
  204.  
  205. ;
  206. ;    Neue empfangene Nachrichten entpacken und einsortieren
  207. ;
  208. IMPORT:
  209. _extern/q delete "'TMPDIR''SENDFILE'" "'TMPDIR''NRFILE'" "'EXPORTDIR''COPYFILE'" "'EXPORTDIR''COPYNR'"
  210. _extern/q 'UNPACKER'
  211. _fastnet getfile'GETOPT' "'TMPDIR''MSGFILE'"
  212.  
  213. ;
  214. ;    Ende
  215. ;
  216.  
  217. _if TMPDIR != "" then _extern/q delete "'TMPDIR'#?" ; Disk aufraeumen
  218. _eod 0                        ; Rueckkehr mit ok
  219.  
  220. END_FAIL:                    ; Ende, Status = Fehler
  221. _if TMPDIR != "" then _extern/q delete "'TMPDIR'#?" ; Disk aufraeumen
  222. _eod 1
  223.